home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_41156.txt < prev    next >
Text File  |  1990-12-05  |  5KB  |  241 lines
  1. -- card: 41156 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: tc&g 1
  6. ----- HyperTalk script -----
  7. on closecard
  8.   global maploc, cardloc
  9.   put word 1 of the short name of this card into maploc
  10.   put word 2 of the short name of this card into cardloc
  11. end closecard
  12.  
  13.  
  14.  
  15. -- part 20 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=458 top=317 right=342 bottom=485
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 18612 / 18612
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: next
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   visual dissolve
  30.   go next
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 22 (button)
  36. -- low flags: 00
  37. -- high flags: 2000
  38. -- rect: left=484 top=317 right=342 bottom=512
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 18613 / 18613
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: return
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   pop card into lastPush
  50.   if the short name of this stack is not in lastPush then
  51.     visual dissolve
  52.     go card "Map"
  53.   else
  54.     visual dissolve
  55.     go lastPush
  56.   end if
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 23 (button)
  62. -- low flags: 00
  63. -- high flags: 2000
  64. -- rect: left=428 top=317 right=342 bottom=456
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 18611 / 18611
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: prev
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual effect scroll right
  76.   go prev
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 24 (button)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=128 top=125 right=141 bottom=278
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: New Button
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   visual dissolve
  96.   go card "tc&g 1a"
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 25 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=128 top=140 right=157 bottom=355
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: New Button
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   visual dissolve
  116.   go card "tc&g 1b"
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 26 (button)
  122. -- low flags: 00
  123. -- high flags: 0000
  124. -- rect: left=128 top=156 right=174 bottom=279
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: New Button
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   visual dissolve
  136.   go card "tc&g 3"
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 29 (button)
  142. -- low flags: 00
  143. -- high flags: 0002
  144. -- rect: left=392 top=320 right=338 bottom=426
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 1500 / 1500
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Start-Up
  153. ----- HyperTalk script -----
  154. on mouseDown
  155.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  156.  
  157.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  158.  
  159.   -- simulate hiliting of two small buttons
  160.   repeat until the mouse is up
  161.     ---find out WHERE on the icon you clicked
  162.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  163.     if the mouseLoc is within the rect of the target then
  164.       if whereInBtn < 0 then
  165.         set icon of me to 1501
  166.       else
  167.         set icon of me to 1502
  168.       end if
  169.     else   -- outside of the button, reset default icon
  170.       set icon of me to 1500
  171.     end if
  172.   end repeat
  173.   set icon of me to 1500
  174.   if the mouseloc is not within the rect of me then exit mouseDown
  175.  
  176.   if whereInBtn < 0 then
  177.     --- the click was on the left so go to send feedback if it exists
  178.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  179.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  180.       exit mouseDown
  181.     end if
  182.     --
  183.     if (GTRACKINGDISABLED = "Disabled") then
  184.       answer "The feedback mechanism has been disabled." with "OK"
  185.       exit mouseDown
  186.     end if
  187.     --
  188.     push card
  189.     put SYS_PATH & "CD Preferences" into feedPath
  190.     set cursor to watch
  191.     visual effect dissolve fast
  192.     go stack feedPath
  193.   else if whereInBtn > 0 then
  194.     -- if the click was on the right then go back to navigation stack
  195.     visual effect iris close to black
  196.     visual effect iris open
  197.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  198.     -- make a prompt for "where is" if the global is empty
  199.     go NAV_PATH
  200.   end if
  201. end mouseDown
  202.  
  203. on mouseUp
  204.   -- kill any mouseups
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part contents for background part 9
  210. ----- text -----
  211. Macintosh Graphics Primer
  212.  
  213. -- part contents for background part 11
  214. ----- text -----
  215. f&b1
  216.  
  217. -- part contents for background part 4
  218. ----- text -----
  219. True Color and Grayscales
  220.  
  221. -- part contents for background part 13
  222. ----- text -----
  223. Introduction
  224.  
  225. -- part contents for background part 5
  226. ----- text -----
  227.  
  228. This section contains information on:
  229.  
  230. ‚Ä¢ What are True Colors*
  231. ‚Ä¢ How Many True Colors are There*
  232. ‚Ä¢ 256-Level Grayscales*
  233.  
  234.  
  235. -- part contents for background part 14
  236. ----- text -----
  237. Compatibility: f&b 3
  238. Performance: f&b 4
  239. Graphics: f&b 5
  240. Hardware: f&b 6
  241. Networking: f&b 14